Existing comments of all types are recognized and aligned.
If the line has no comment, a side-by-side comment is inserted and aligned
if the value of comment-start is not nil.
Otherwise, a separate-line comment is inserted, on this line
or on a new line inserted before this line if this line is not blank." (interactive) (byte-code "ÆÇ È!É fÊ Ë `)Â#\"Ì f *ÈÍ!?<Ë Î Ï jcfÈÍ!GÎ PÇ ÐcÑÒ!cÓ;`ÔHaÕ iZ\"" [comment-line-start-skip comment-start-skip t comment-start comment-line-start fortran-comment-indent-char nil beginning-of-line looking-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ ]*$" delete-horizontal-space fortran-comment-hook "
List the currently defined abbrevs in Fortran mode." (interactive) (byte-code "ÁÂÃ!ÄÅ!ÆÇ\"ÂÈ!" [fortran-mode-abbrev-table nil message "Listing abbrev table..." require abbrevlist list-one-abbrev-table "*Help*" "Listing abbrev table...done"] 5))
(defun fortran-column-ruler nil "\
Inserts a column ruler momentarily above current line, till next keystroke.
The ruler is defined by the value of fortran-column-ruler.
The key typed is executed unless it is SPC." (interactive) (byte-code "ÁÂÃ `)ÁÄ$" [fortran-column-ruler nil momentary-string-display beginning-of-line "Type SPC or any command to erase ruler."] 6))
(defun fortran-window-create nil "\
Makes the window 72 columns wide." (interactive) (byte-code "ÂÃÄÅ!)ÆÇ!ÈÉÁ\"ÊË !" [window-min-width t nil 2 split-window-horizontally 73 other-window 1 switch-to-buffer " fortran-window-extra" select-window previous-window] 6))
(defun fortran-split-line nil "\
Break line at point and insert continuation marker and alignment." (interactive) (byte-code "ÃÄ Å Æ!)ÇÈ É#ÇÊ
CHARS is like the inside of a [...] in a regular expression
except that ] is never special and quotes ^, - or ." (interactive "*s") (byte-code "ÁÂ!Ã`Ä!`\"" [chars nil skip-chars-backward delete-region skip-chars-forward] 5))
(defun fortran-electric-line-number (arg) "\
Self insert, but if part of a Fortran line number indent it automatically.
Auto-indent does not happen if a numeric arg is used." (interactive "P") (byte-code "Ä ?Å!4ÆÇÈ `)Â#)#ÉÊ!+c4ËÌ!cÍ " [arg fortran-electric-line-number t last-command-char nil self-insert-command re-search-backward "[^ 0-9]" beginning-of-line looking-at "[0-9]" skip-chars-backward " " fortran-indent-line] 7))
(defun beginning-of-fortran-subprogram nil "\
Moves point to the beginning of the current fortran subprogram." (interactive) (byte-code "ÂÁÃÄ!ÅÆÂÇ#ÈÆ! ÉÊ!)" [case-fold-search t nil beginning-of-line -1 re-search-backward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move looking-at forward-line 1] 5))
(defun end-of-fortran-subprogram nil "\
Moves point to the end of the current fortran subprogram." (interactive) (byte-code "ÂÁÃÄ!ÅÆÂÇ#ÈÉ!bÊË!)" [case-fold-search t nil beginning-of-line 2 re-search-forward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move match-beginning 0 forward-line 1] 5))
(defun mark-fortran-subprogram nil "\
Put mark at end of fortran subprogram, point at beginning.
The marks are pushed." (interactive) (byte-code "ÀÁ Â`!Ã " [nil end-of-fortran-subprogram push-mark beginning-of-fortran-subprogram] 4))
(defun fortran-previous-statement nil "\
Moves point to beginning of the previous fortran statement.
Returns 'first-statement if that statement is the first
non-comment Fortran statement in the file, and nil otherwise." (interactive) (byte-code "ÅÅÅÆ ÇÈÉÊ
Return t if current line's line number is correctly indente.
Do not call if there is no line number." (byte-code "Á ÂÃ!iX iUÂÄ!iÅU)" [fortran-line-number-indent beginning-of-line skip-chars-forward " " "0-9" 5] 5))